GetFAttr procedure

  DECLARATION:  GetFAttr(var F; var Attr : Word)

      PURPOSE:  Returns the attributes of a file

         UNIT:  The DOS unit

      REMARKS:  GetFAttr accepts a file variable, F that has been
                assigned a valid file name but has not been opened and will
                return the attributes of that file.  Attribute values are
                normal DOS attributes and can be compared to the DOS unit
                attribute constants which are declared as follows:

                         Const
                            ReadOnly   = $01;
                            Hidden     = $02;
                            SysFile    = $04;
                            VolumeID   = $08;
                            Directory  = $10;
                            Archive    = $20;
                            AnyFile    = $3F;

                NOTE:  Errors are reported through DosError.